home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Tele
/
S
/
SUPERDIALER
< prev
next >
Wrap
Text File
|
1987-12-05
|
4KB
|
190 lines
(RESET BILLING & TURN OFF MODEM SPEAKER)
SETCOST 0
RESET
TYPE ATM^M
ERASE ALL
(SET REDIAL COUNTER TO 0)
LET EQUAL W%,0
(CREATE DIALOG BOX)
:DIALOG
COPYINTO X$, (A) Nova; (B) Dunedin Realty; (C) Meganet; (D) Litigator
COPYINTO Y$, (R) All local #s; (X) To Abort
COPYINTO Z$, All UNCONNECTED #s simply click <OK>
CLEAR
QUERY1 A$
(CONVERT TO ALL ENTRIES TO UPPER CASE)
CONVUP A$
(CHECK FOR OCCURENCE OF A,B,C,D etc)
INSTR A%,A$,1,A
INSTR B%,A$,1,B
INSTR C%,A$,1,C
INSTR D%,A$,1,D
INSTR X%,A$,1,X
INSTR R%,A$,1,R
(ABORT PROCEDURE?)
TEST X% > 0
IF YES JUMPTO END
(DIAL ALL?)
TEST R% > 0
IF YES GOSUB DIALALL
(START DIALING SELECTED NUMBERS SKIPPING)
(TO THE NEXT ONE UPON RECEIVING A BUSY)
(SIGNAL FROM THE MODEM. IF YOUR MODEM DOESN’T)
(RETURN BUSY SIGNALS, CHANGE BUSY TO)
(NO CARRIER. UPON CONNECTING TO THE FIRST
(NON-BUSY SERVICE, THE PROGRAM EXECUTES A
(LOG-ON PROCEDURE. Note: SUCCESSIVE EXECUTIONS
(OF THIS PROGRAM WILL REDIAL __only__ those
(NUMBERS WHICH WERE SELECTED THE FIRST TIME _BUT_
(WHICH HAVE NOT CONNECTED _if_ YOU SIMPLY CLICK
( <OK> ON THE SUCCESSIVE EXECUTIONS WITHOUT
(SPECIFYING WHICH NUMBERS TO DIAL)
:MORE
ADD T%,A%
ADD T%,B%
ADD T%,C%
ADD T%,D%
TEST T% > 0
IF NO JUMPTO DONE
LET EQUAL T%,0
(ADD 1 TO REDIAL COUNTER)
ADD W%,1
(CONVERT COUNTER NUM-VAR TO STRING VARIABLE)
NUMTOSTRING W%,W$
:YYYY
TEST A% = 0
IF YES JUMPTO MMMM
COMM 1200-N-8-1-FULL
GOSUB COUNTER
TYPE Dialing NOVA BBS^M
DIAL ATS7=15DT, 544 8049
PANICAFTER 30
ONPANIC JUMPTO MMMM
ALERT1 BUSY/JUMPTO MMMM
PROMPT NECT
LET EQUAL A%,0
DO:COM:Numbers:q1. Nova.PROC
PAUSE
:MMMM
TEST B% = 0
IF YES JUMPTO PPPP
COMM 2400-N-8-1-FULL
GOSUB COUNTER
TYPE Dialing DUNEDIN REALTY BBS^M
DIAL ATS7=15DT, 733 2415
PANICAFTER 30
ONPANIC JUMPTO PPPP
ALERT1 BUSY/JUMPTO PPPP
PROMPT NECT
LET EQUAL B%,0
DO:COM:NUMBERS:q2. Dunedin Realty.PROC
PAUSE
:PPPP
TEST C% = 0
IF YES JUMPTO QQQQ
COMM 2400-N-8-1-FULL
GOSUB COUNTER
TYPE Dialing MEGANET BBS^M
DIAL ATS7=15DT, 545 8050
PANICAFTER 30
ONPANIC JUMPTO QQQQ
ALERT1 BUSY/JUMPTO QQQQ
PROMPT NECT
LET EQUAL C%,0
DO:COM:NUMBERS:qMeganet.PROC
PAUSE
:QQQQ
TEST D% = 0
IF YES JUMPTO MORE
COMM 2400-N-8-1-FULL
GOSUB COUNTER
TYPE Dialing LITIGATOR BBS^M
DIAL ATDT, 894 6402
PANICAFTER 30
ONPANIC JUMPTO MORE
ALERT1 BUSY/JUMPTO MORE
PROMPT NECT
LET EQUAL D%,0
DO:COM:NUMBERS:qLitigator.PROC
:END
END
(Subroutine which counts redial cycle number)
:COUNTER
CLEAR
TYPE This is the
TYPE W$
CONTAINS W$,11
IF YES JUMPTO YEST
CONTAINS W$,12
IF YES JUMPTO YEST
CONTAINS W$,13
IF YES JUMPTO YEST
RIGHT$ V$,1,W$
CONTAINS V$,1
:YEST
IF YES TYPE st
IF YES JUMPTO TYPEE
CONTAINS V$,2
IF YES TYPE nd
IF YES JUMPTO TYPEE
CONTAINS V$,3
IF YES TYPE rd
IF YES JUMPTO TYPEE
TYPE th
:TYPEE
TYPE redial cycle.
TYPE ^M
RETURN
END
(SUBROUTINE DIALALL)
(list ALL numbers here to be redialed if
(the DIAL ALL selection is selected)
:DIALALL
LET EQUAL A%,1
LET EQUAL B%,1
LET EQUAL C%,1
LET EQUAL D%,1
LET EQUAL R%,0
RETURN
END
:DONE
ERASE ALL
COPYINTO X$, No More Numbers to Dial!
QUERY5
JUMPTO DIALOG
(What I have also done in my personal version, is put the command line
( LET EQUAL Z%,0
(at the beginning of each of my separate dial procedure which I use
(when I don’t want to redial with the Super Dialer. At the beginning
(of Super Dialer, I insert the command line
( LET EQUAL Z%,1
(Then, at the end of each log-on procedure (NOT dialing procedures)
(the following following command lines are inserted:
( PROMPT NO CARRIER
( TEST Z%,=1
( IF YES DO COM:SUPER DIALER 2.0
(
(That way, if I use Super Dialer to call, at the end of the BBS session,
(my procedure will return me to Super Dialer to allow me to continue
(redialing or abort. If I don’t use Super Dialer, but rather use my
(separate regular dialing procedure to call the BBS, at the end of
(the BBS session, Super Dialer will not ask you what number you want to
(dial.